﻿Imports System.Data.SqlClient

Public Class frmTiepNhanKHChoThue

    Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click
        If Not txtHoTenChuNha.Text = "" Then
            If Not txtSoDienThoai.Text = "" Then
                If Not txtDiaChi.Text = "" Then
                    Dim sqlparameters(2) As SqlParameter
                    Dim QLKhachThue As KhachHangChoThueDTO = New KhachHangChoThueDTO()
                    QLKhachThue.strHoTen = txtHoTenChuNha.Text
                    QLKhachThue.strDiaChi = txtDiaChi.Text
                    QLKhachThue.strSoDienThoai = txtSoDienThoai.Text


                    Dim para0 As New SqlParameter("hoten", SqlDbType.NVarChar)
                    para0.Direction = ParameterDirection.Input
                    para0.Value = QLKhachThue.strHoTen
                    sqlparameters(0) = para0

                    Dim para1 As New SqlParameter("diachi", SqlDbType.NVarChar)
                    para1.Direction = ParameterDirection.Input
                    para1.Value = QLKhachThue.strDiaChi
                    sqlparameters(1) = para1

                    Dim para2 As New SqlParameter("sodienthoai", SqlDbType.VarChar)
                    para2.Direction = ParameterDirection.Input
                    para2.Value = QLKhachThue.strSoDienThoai
                    sqlparameters(2) = para2




                    KhachHangChoThueBUS.Insert(sqlparameters)
                    MessageBox.Show("Nhập thông tin chủ nhà thành công!!!!!")


                Else

                    MsgBox("Bạn chưa nhập vào địa chỉ  ", MsgBoxStyle.Critical, "Thông báo!")

                    txtDiaChi.Text = Focus()
                End If
            Else

                MsgBox("Bạn chưa nhập vào số điện thoại  ", MsgBoxStyle.Critical, "Thông báo!")

                txtSoDienThoai.Text = Focus()
            End If
        Else

            MsgBox("Bạn chưa nhập vào họ tên ", MsgBoxStyle.Critical, "Thông báo!")
            txtHoTenChuNha.Focus()

        End If
    End Sub
 
    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Me.Close()
    End Sub
End Class